home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 119 / 119.d81 / big screen (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  91 lines
  1. 10 poke56,32:clr:dv=peek(186):ifdv<8thendv=8
  2. 15 sys57812"fonts",dv,0:poke780,0:poke781,0:poke782,32:sys65493:poke53272,26
  3. 20 sys57812"toolbox117 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 30 window=32768:mt=49152:box=mt+3:dimme$(4,12)
  5. 40 poke53280,0:poke53281,0
  6. 50 sysmt+54,0,39,0,24,7:sysmt+3,1,38,1,23,127,14
  7. 60 sysmt+42,4,34,8,15:sysmt+54,5,35,7,14,13:sysmt+3,6,34,8,13,160,3
  8. 70 sysmt+54,1,38,2,4,7:sysmt+3,2,37,3,3,160,1:print"";
  9. 80 sysmt+18,3,"[194][160][201][160][199]   [211] [195] [210] [197] [197] [206]"
  10. 90 print"[159]";:fori=1to4:reada$:sysmt+15,7,8+i,a$:next
  11. 100 sysmt+54,1,38,20,22,13:sysmt+3,2,37,21,21,160,7:print"[158]";
  12. 110 sysmt+18,21,"[195][210][211][210]/[210][197][212][213][210][206] [212]o [211]elect"
  13. 115 sysmt+6,184
  14. 120 poke53272,26:sysmt+9,184:sysmt,9,6,34,4,3,1,"1234q"
  15. 130 onf%gosub200,400,300,60000,60000:goto120
  16. 200 a$="[204][207][193][196]ing docs...":gosub2000
  17. 220 sysmt+27,"big screen docs",dv,3*4096,3,7,"[194] [201] [199]   [211] [195][160][210] [197] [197] [206]":return
  18. 300 a$="[204][207][193][196]ing [194][201][199] [211][195][210][197][197][206] [205][204]...":gosub2000:sysmt+51,"bscreen 8000",dv,32768
  19. 310 a$="[204][207][193][196]ing [211]creen...":gosub2000:gosub5460:return
  20. 400 a$="[204][207][193][196]ing [199]ame [205][204]...":gosub2000:sysmt+51,"bs demo 9000",dv,36864
  21. 410 a$="[204][207][193][196]ing [194][201][199] [211][195][210][197][197][206] [205][204]...":gosub2000:sysmt+51,"bscreen 8000",dv,32768
  22. 420 a$="[204][207][193][196]ing [211]creen...":gosub2000:fori=1to1000:next
  23. 430 sysmt+3,0,26,0,20,160,12:sysmt+3,27,39,0,20,160,5:
  24. 440 sysmt+3,0,39,21,24,32,0:print"[146][158]":sysmt+18,23,"[195]ursor [193]round. [209] to [209]uit"
  25. 450 sysmt+15,28,5,"[211]core:00000"
  26. 460 sys36864:return
  27. 1000 data "1. [210]ead/[208]rint [196]ocs","2. [211]ee [194]ig [211]creen [196]emo"
  28. 1010 data "3. [211]croll [211]ample [211]creen","4. [209]uit"
  29. 2000 sysmt+3,2,37,21,21,160,1:print"";:sysmt+18,21,a$:return
  30. 5000 poke56,32:clr:dv=peek(186):ifdv<8thendv=8
  31. 5020 window=32768:mt=49152:box=mt+3:dimme$(4,12)
  32. 5030 poke53280,0:poke53281,0
  33. 5040 sys57812"fonts",dv,0:poke780,0:poke781,0:poke782,32:sys65493:poke53272,24
  34. 5045 sys57812"bscreen 8000",dv,0:poke780,0:poke781,0:poke782,128:sys65493
  35. 5046 sys57812"toolbox117 c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  36. 5050 rem goto5480
  37. 5060 syswi,208*256,80,80,32
  38. 5070 syswi+3,5,35,5,20
  39. 5080 syswi+9:syswi+18,27,8:syswi+18,28,8
  40. 5090 forx=1to30step2:fori=1to16step2:syswi+15,5+i,2+x,27:syswi+15,6+i,2+x,28
  41. 5100 syswi+15,5+i,3+x,28:syswi+15,6+i,3+x,27:next:next
  42. 5110 syswi+18,100,9:syswi+18,160,9
  43. 5120 syswi+75,0,80,33,33,100:syswi+75,0,80,34,49,160
  44. 5130 syswi+18,128+27,10:syswi+18,128+28,10
  45. 5140 forx=1to30step2:fori=1to1:syswi+15,3+i,2+x,27+128:syswi+15,4+i,2+x,28+128
  46. 5150 syswi+15,3+i,3+x,128+28:syswi+15,4+i,3+x,128+27:next:next
  47. 5160 syswi+18,128+29,9:syswi+18,128+30,9
  48. 5170 forx=1to30step2:fori=18to18:syswi+15,3+i,2+x,30+128:syswi+15,4+i,2+x,29+128
  49. 5180 syswi+15,3+i,3+x,128+29:syswi+15,4+i,3+x,128+30:next:next
  50. 5190 syswi+75,8,11,3,5,32:syswi+75,15,18,3,5,32
  51. 5200 syswi+18,29,5:syswi+75,8,18,8,9,29:syswi+75,8,18,15,19,29
  52. 5210 syswi+75,8,18,25,27,29
  53. 5220 fory=19to30step2:forx=18to50step2:syswi+15,5+x,2+y,28:syswi+15,6+x,2+y,27
  54. 5230 syswi+15,5+x,3+y,27:syswi+15,6+x,3+y,28:next:next
  55. 5240 forx=4to22:fory=3to33:syswi+12,x,y:a=peek(780):syswi+15,x+52,y,a:next:next
  56. 5250 forx=4to22:fory=3to15:syswi+12,x,y:a=peek(780):syswi+15,x+26,y+8,a:next:next
  57. 5260 remsyswi+72,"game screen",8:syswi+9
  58. 5270 syswi+18,144,12:syswi+18,145,12:syswi+18,146,12
  59. 5280 syswi+15,32,25,144:syswi+75,33,45,25,25,145:syswi+15,46,25,146
  60. 5290 syswi+18,145+32,12:syswi+75,33,45,26,32,145+32
  61. 5300 syswi+18,144+32,12:syswi+75,32,32,26,32,144+32
  62. 5310 syswi+18,146+32,12:syswi+75,46,46,26,32,146+32
  63. 5320 syswi+75,1,1,32,35,32:syswi+75,2,20,35,35,32:syswi+75,21,21,35,40,32
  64. 5330 syswi+18,143,7
  65. 5340 syswi+75,79,79,0,75,143:syswi+75,58,78,35,35,32:syswi+75,57,57,35,40,143
  66. 5350 syswi+75,5,56,40,40,32:syswi+75,4,4,40,48,143
  67. 5360 syswi+75,5,75,48,48,32:remsyswi+75,75,75,48,75,143
  68. 5370 fori=147to154:syswi+18,i,2:next
  69. 5380 forx=0to80:syswi+15,x,80,int(rnd(0)*(154-147)+147):next
  70. 5390 syswi+75,65,65,55,75,143
  71. 5400 syswi+75,55,55,55,75,143
  72. 5410 syswi+75,45,45,48,75,143
  73. 5420 syswi+75,35,35,55,75,143
  74. 5430 syswi+75,25,25,48,75,143
  75. 5440 syswi+75,15,15,55,75,143
  76. 5450 syswi+75,5,5,48,75,143:goto5480
  77. 5460 syswi+72,"game screen",dv:syswi+3,1,38,1,23:syswi+6,0,0:poke53272,24
  78. 5470 sysmt+3,0,39,0,24,160,13+128:syswi+9
  79. 5480 sys49152+48,"[145][157]q":onf%goto5490,5500,5510,5520:iff%=5thenreturn
  80. 5490 syswi+33:goto5480
  81. 5500 syswi+30:goto5480
  82. 5510 syswi+36:goto5480
  83. 5520 syswi+39:goto5480
  84. 10000 open15,8,15,"s0:big screen":close15:save"big screen",8:end
  85. 60000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen60020
  86. 60010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then60030
  87. 60020 next:print"[147]":poke186,8:end
  88. 60030 q$=chr$(34):poke646,peek(53281):print"[147]"
  89. 60040 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  90. 60050 print"run:":poke631,13:poke632,13:poke198,2:end
  91.